


	******************************************************************
	**
	**
	**		NAME:	ELITE PERSISTENCE IN THE ERA OF EXPANDING OVERSEAS TRADE
	**
	**		MAKES:  Figure 1		  				       
	**		
	**
	******************************************************************
	
	
	
	
	

			

		
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	


*-------------------------------------------------------------------------------
* global for input/output
*-------------------------------------------------------------------------------


* input
*------

global input = "" 	
	
	
* output
*-------

global output = ""	
		
	
	
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	


*-------------------------------------------------------------------------------
* preliminaries
*-------------------------------------------------------------------------------


* preliminaries
*--------------

clear
set more off



	
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	


*-------------------------------------------------------------------------------
* data
*-------------------------------------------------------------------------------


* read in
*--------

cd "${input}"
use analysis_vars_othertrends.dta, clear







			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	


*-------------------------------------------------------------------------------
* globals
*-------------------------------------------------------------------------------


* globals
*--------

global yr1 		= "parl_year > 1553 & parl_year < 1639"
global yr2 		= "parl_year >= 1660 & parl_year <= 1756"

global yr3 		= "parl_year >= 1639 & parl_year <= 1649"
global yr4 		= "parl_year >= 1628 & parl_year <= 1660"

global yr5 		= "parl_year < 1639 & parl_year >= 1583"
global yr6 		= "parl_year > 1550 & parl_year <= 1750"

global yr7 		= "parl_year > 1553 & parl_year <= 1640"


global xline1	= "xline(1660, lcolor(gs12))"
global xline2	= "xline(1688, lcolor(gs12))"
global xline3	= "xline(1640, lcolor(gs12))"
global xline4	= "xline(1562, lcolor(gs12))"








			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	


*-------------------------------------------------------------------------------
* plot: slave trade voyages
*-------------------------------------------------------------------------------


* hi lo
*------

capture drop hi lo
gen hi = 151
gen lo = 0



* this plot
*----------

global outcome1 = "eic_avg_annual_voy"
global outcome2 = "tot_voy"
global outcome3 = "asia_voy"
global scale = ""




* plot
*-----


	
* plot 1
*-------

# delimit ;

twoway 
	
	
		// shaded area
	(rarea hi lo parl_year	
		if   ${yr3} 
		,  color(gs13) )
		
		

	(line ${outcome1} parl_year
		if   ${yr6}		
		,  lcolor(black)  lwidth(medthin) lpattern(line)  ${xline2}  )
			
	(line ${outcome2} parl_year
		if   ${yr6}		
		,  lcolor(gs9)  lwidth(medthin) lpattern(line)   )

	(line ${outcome3} parl_year
		if   parl_year <= 1600	& parl_year >= 1550
		,  lcolor(gs2)  lwidth(medthin) lpattern(shortdash)   )	
		
		,
		yscale(noline)
		xscale(noline)
		
		text(150 1688.5 	"Glorious Revolution", size(small) place(e))
		text(150 1650 		"English Civil War", size(small) place(e) )
		
		xsize(6.5)
		ysize(3.0)

		title("", color(black) size(medsmall) pos(11) ) 
		xlab( , 
			labsize(medsmall) ) 
		ylab( ${scale}, 
			angle(hori) labsize(medsmall) nogrid  )
		xtitle("Year" , 
			color(black) size(medium) )
		ytitle("Voyages", 
			color(black) size(medium)  )
		graphregion( fcolor(white) lcolor(white) ) 
		plotregion( fcolor(white) lstyle(none) lcolor(white) ilstyle(none)) 
		legend(order(
				2 "Annual EIC voyages"
				3 "Annual slave voyages"
				4 "Avg. annual (early) Asia voyages"
				)
			cols(3)
			pos(6)
			
			region( color(none) )
			size(medsmall)
			)
		
		;

# delimit cr


	* export graph
	*-------------

	cd "${output}"
	graph export "trend_voyages.pdf", replace
	

	
	


			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
			**	**	**	**	**	**	**	**	**	**	**	**	**
	

						** end of do file **
						
						
						
